home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / doom / extra.zip / SLOT.ZIP / SLOT.ACS < prev    next >
Text File  |  1996-07-10  |  8KB  |  279 lines
  1. #include "common.acs"
  2.  
  3. int slot1;
  4. int slot2;
  5. int slot3;
  6.  
  7. script 1 OPEN  
  8. {
  9.     Thing_Activate(1);
  10.     delay(const:64);
  11.     Thing_Deactivate(1);
  12. }
  13. script 2 OPEN
  14. {
  15.         switch (GameType())
  16.         {
  17.                 case GAME_SINGLE_PLAYER:
  18.                         ambientsound("PickupArtifact",127);
  19.                         print(s:"YOUR JOURNEY NEARS ITS END");
  20.                         delay(3*35);
  21.                         print(s:"BEYOND THIS CAVERN LIES THE");
  22.                         delay(3*35);
  23.                         printbold(s:"SLOT MACHINE OF CHAOS!");
  24.                         delay(3*35);
  25.                         break;
  26.                 case GAME_NET_COOPERATIVE:
  27.                         ambientsound("PickupArtifact",127);
  28.                         print(s:"YOU AWAKEN ALONE");
  29.                         delay(3*35);
  30.                         print(s:"YOUR MATES HAVE DONE A BUNK");
  31.                         delay(3*35);
  32.                         printbold(s:"WHERE ARE THEY?");
  33.                         break;
  34.                 case GAME_NET_DEATHMATCH:
  35.                         break;
  36.         }
  37. }
  38. script 3 (void)
  39. {
  40.         switch(GameType())
  41.         {
  42.                 case GAME_SINGLE_PLAYER:
  43.                         print(s:"HERE IS THE SLOT MACHINE OF CHAOS!");
  44.                         delay(3*35);
  45.                         printbold(s:"2 OR 3 OF A KIND WINS A PRIZE!");
  46.                         break;
  47.                 case GAME_NET_COOPERATIVE:
  48.                         print(s:"AT LAST!");
  49.                         delay(3*35);
  50.                         printbold(s:"THE SLOT MACHINE OF CHAOS!");
  51.                         break;
  52.                 case GAME_NET_DEATHMATCH:
  53.                         break;
  54.         }
  55. }
  56. script 4 (int arg0, int arg1)  
  57. {
  58.     int var0;
  59.  
  60.     Floor_LowerInstant(arg0, 0, 16);
  61.     thingsound(arg1, "GlassShatter", 127);
  62.     delay(const:1);
  63.     var0 = 20;
  64.     while(var0-- > 0)
  65.     {
  66.         Thing_ProjectileGravity(arg1, random(54, 63), random(0, 255), random(10, 40), random(5, 20));
  67.     }
  68. }
  69. script 5 (void)
  70. {
  71.     int var0;
  72.     var0 = 40;
  73.     while(var0-- > 0)
  74.     {
  75.         Thing_ProjectileGravity(2, 108, random(0, 255), random(10, 30), random(5, 15));
  76.         Thing_ProjectileGravity(2, 107, random(0, 255), random(10, 30), random(5, 15));
  77.     }
  78.     Thing_Deactivate(3);
  79.     Light_LowerByValue(2,100);
  80. }
  81. script 6 (int arg0, int arg1)
  82. {   
  83.     ambientsound("PickupArtifact",127);
  84.     switch(arg1)
  85.     {    
  86.          case 1:
  87.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "X_FIRE01");
  88.                print(s:"FIRE");
  89.                break;
  90.  
  91.          case 2:
  92.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "FORPUZ1");
  93.                print(s:"BEAST");
  94.                break;
  95.  
  96.          case 3:
  97.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "ICE01");
  98.                print(s:"ICE");
  99.                break;
  100.  
  101.          case 4:
  102.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "FORPUZ3");
  103.                print(s:"TRAP");
  104.                break;
  105.  
  106.          case 5:
  107.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "PUZZLE5");
  108.                print(s:"REPLENISHMENT");
  109.                break;
  110.  
  111.          case 6:
  112.                SetLineTexture(arg0 - 3, SIDE_FRONT, TEXTURE_MIDDLE, "PUZZLE12");
  113.                print(s:"ARTIFACT");
  114.                break;
  115.  
  116.     }
  117.  
  118.     Light_RaiseByValue(arg0,200);
  119.     
  120. }
  121. script 7 (void)
  122. {
  123.     SetLineTexture(4, SIDE_FRONT, TEXTURE_MIDDLE, "CLOCK12");
  124.     Light_LowerByValue(4,200);
  125.     Light_LowerByValue(5,200);
  126.     Light_LowerByValue(6,200);
  127.     slot1 = random(1,6);
  128.     {    
  129.           delay(35);
  130.           ACS_Execute(6, 1, 4, slot1, 0);
  131.     }
  132.     SetLineTexture(4, SIDE_FRONT, TEXTURE_MIDDLE, "CLOCK13");
  133.     slot2 = random(1,6);
  134.     {
  135.           delay(35);
  136.           ACS_Execute(6, 1, 5, slot2, 0);
  137.     }
  138.     SetLineTexture(4, SIDE_FRONT, TEXTURE_MIDDLE, "CLOCK14");
  139.     slot3 = random(1,6);
  140.     {
  141.           delay(35);
  142.           ACS_Execute(6, 1, 6, slot3, 0);
  143.     }
  144.     SetLineTexture(4, SIDE_FRONT, TEXTURE_MIDDLE, "CLOCK15");
  145.     int total;
  146.     total = 0;
  147.     if (slot1 == slot2) total += 1;
  148.     if (slot3 == slot2) total += 2;
  149.     if (slot1 == slot3) total += 4;
  150.     delay(10);
  151.     switch (total)
  152.     {
  153.          case 1:
  154.          ACS_Execute(8, 1, slot1, 0, 0);
  155.          break;
  156.          
  157.          case 2:
  158.          ACS_Execute(8, 1, slot2, 0, 0);
  159.          break;
  160.  
  161.          case 4:
  162.          ACS_Execute(8, 1, slot1, 0, 0);
  163.          break;
  164.          
  165.          case 7:
  166.          ACS_Execute(9, 1, slot3, 0, 0);
  167.          break;
  168.     }
  169.     SetLineTexture(4, SIDE_FRONT, TEXTURE_MIDDLE, "CLOCKC");
  170. }
  171. script 8 (int arg0)
  172. {
  173.     delay(10);
  174.     switch(arg0)
  175.     {
  176.           case 1:
  177.                  ACS_Execute(10,1,10,108,0);
  178.                  print(s:"TWO FIRES = FLAME BURST");
  179.                  break;
  180.           
  181.           case 2:
  182.                  print(s:"TWO BEASTS = POSSE");
  183.                  Thing_Spawn(7,4,64);
  184.                  break;
  185.  
  186.           case 3:
  187.                  ACS_Execute(10,1,65,54,0);
  188.                  print(s:"TWO ICES = ICE SHARDS");
  189.                  break;
  190.  
  191.           case 4:
  192.                  ACS_Execute(10,1,51,52,0);
  193.                  print(s:"TWO TRAPS = DARTS");
  194.                  break;
  195.  
  196.           case 5:
  197.                  ACS_Execute(10,1,55,60,0);
  198.                  print(s:"TWO REPLENISHMENTS = RELIEF");
  199.                  Thing_Spawn(6,75,64);
  200.                  Thing_Spawn(7,23,64);
  201.                  break;
  202.  
  203.           case 6:
  204.                  ACS_Execute(10,1,57,63,0);
  205.                  print(s:"TWO ARTIFACTS = ITEM");
  206.                  Thing_Spawn(6,random(13,18),64);
  207.                  break;
  208.  
  209.     }
  210. }
  211. script 9 (int arg0)
  212. {
  213.     delay(10);
  214.     switch(arg0)
  215.     {
  216.           case 1:
  217.                  ACS_Execute(10,1,53,10,0);
  218.                  print(s:"THREE FIRES = INFERNO!");
  219.                  delay(10);
  220.                  ACS_Execute(10,1,53,10,0);
  221.                  break;
  222.  
  223.           case 2:
  224.                  ACS_Execute(10,1,107,108,0);
  225.                  print(s:"THREE BEASTS = SLAUGHTER!");
  226.                  Thing_Spawn(7,3,64);
  227.                  break;
  228.  
  229.           case 3:
  230.                  ACS_Execute(10,1,54,65,0);
  231.                  print(s:"THREE ICES = ABSOLUTE ZERO!");
  232.                  Thing_Spawn(7,20,64);
  233.                  break;
  234.  
  235.           case 4:
  236.                  ACS_Execute(10,1,106,107,0);
  237.                  print(s:"THREE TRAPS");
  238.                  delay(70);
  239.                  ACS_Execute(10,1,40,53,0);
  240.                  printbold(s:"= DEATHTRAP!!");
  241.                  break;
  242.  
  243.           case 5:
  244.                  ACS_Execute(10,1,56,62,0);
  245.                  print(s:"3 REPLENISHMENTS = PANACEA");
  246.                  Thing_Spawn(7,24,0);
  247.                  break;
  248.  
  249.           case 6:
  250.                  ACS_Execute(10,1,94,108,0);
  251.                  print(s:"3 ARTIFACTS =");
  252.                  delay(25);
  253.                  printbold(s:"KEYS GALORE!!");
  254.                  delay(35);
  255.                  printbold(s:"NOW LET'S GET OUTTA HERE!");
  256.                  break;
  257.  
  258.     }
  259. }
  260. script 10 (int arg0, int arg1)
  261. {
  262.     int var0;
  263.     var0 = 10;
  264.     while(var0-- > 0)
  265.     {
  266.         Thing_ProjectileGravity(6, arg0, random(34,94), random(20, 80), random(10,30));
  267.         Thing_ProjectileGravity(6, arg1, random(34,94), random(30, 80), random(10, 30));
  268.         Thing_ProjectileGravity(6, arg1, random(34,94), random(30, 80), random(10, 30));
  269.     }
  270. }
  271. script 11 (void)
  272. {
  273.     print(s:"WELL DONE - YOU SUCCEEDED!");
  274.     delay(35*2);
  275.     print(s:"HOPE YOU ENJOYED IT - PHIL ROBERTS");      
  276.     delay(35*3);
  277.     print(s:"WHAT ARE YOU WAITING FOR? GO FOR IT!");      
  278. }
  279.